RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


ee ee ed 
en ee od 
= 


N 12 


MM AAAAAAAAAA 
MM AAAAAAAAAA 


ecacce ca nw NMNMM 
ra L424 [4 4 “nn mn nn 
ac ca co nw nn nw 
[odie 4 ecacc nn nw nn 
cc eccce nw nn nn 
aa cc nw nw nn 
ca cc mn mn nn 
aaanacaacacacacacac NMWNM nn 
@Qaaaacacacaacacca NANMM nn 

o o 
8888888888 


— ad 
rs ae 
wu om a ad 
%. verve a 
i es ad od 
= wee aa 
woe rar a4 
vs oe a 
he Oe Oe Oe te Me he he te ke a tt aad I I I I I I I I I I I 
ee Oe Oe Oe te ee te a aad I I I od I I I OI I I 


**F ILE**1D**FORMAT 


FORMAT = generate formatted output Lines 1b-5e $ep-1984 AX-11 Bliss-32 V4 J-7 
2 3007 1938S 99:86:39 «YANN OSAeSroamdt soc, 


ZTITLE ‘FORMAT = generate formatted output Lines’ 
! <BLF /NOF ORMAT> 


MODULE format (IDENT =_‘y04-000' 
FOL ISS5e + ADDRESSING _MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE)] 


BEGIN 


'<BLF /FORMAT> 

!<BLF /LOWERCASE_ USER> 
' <BLF /UPPERCASE_KEY> 

; <BLF /MACRO> 


. 
' 
LRA RRR RRA REAR REE A EEE EEE EEE AERA EAE RERRERREREREEKERERES 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


ie THIS fe seek IS cite UNDER A LICENSE AND MAY BE USED AND COPIED 
ON ACCORDANCE W THE TERMS OF H_TH 


® 

* 

® 

a 

t 

® 

i 

® 

't OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOF TUARE IS HEREBY * 
TRANSFERRED. * 

® 

'® THE INFORMATION IN THIS SOFTWARE IS SUBJ att O CHANGE WITHOUT NOTICE * 
® 

& 

® 

® 

® 

® 

® 

® 


ECT T 
tt AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


't DIGITAL ASSUMES NO RESPONS 
tt SOFTWARE ON EQUIPMENT WHIC 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
H IS NOT SUPPLIED BY DIGITAL. 


VRE RARER AEA ERA AAA TAREE AAA AEA ERAKERER ERE 
J 


- - 
+ 
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FACILITY: 
DSR (Digital Standard RUNOFF) /DSRPLUS DSRTOC/CONTENTS Utility 


ABSTRACT 
Generate formatted output Lines 


ENVIRONMENT: Transportable 
AUTHOR: JPK 
CREATION DATE: March 1982 
MODIFIED BY: 
005 JPK00008 09-Mar-1 1903 
Modified CONTENTS ona CAPTION to support new BRN formats, 


support SEND CONTENTS, /DOUBLE_SPACE, page numbered chapters, 
guarantee space after section fhumber “and to write new 


OME WR 0 OODNAUE WN $9 OOBNOUS WN O DONA EAN“ OOONOUE wn 
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FUP PUSVSIS B® BS BS BEE EE EWAN ANIA PUN NINN 2 2 Oo ees es 
a a a a a a a a kd dd od dd dd I I I IOOOOOO 
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NOUS WO OO 
SoOooo°o: 
wu 


ws 


Page 


De Se Be Oe Be Be Se Se Be oe FH Se Oe Se Se Se Se Se Se Se Se Se Se Pete Fe Se ee Fe Se Be Se ee FHS Se Be Ge Ge Se Se Se Se Se Be Se Be Oe Se Se SH ee SH Se Se eee 


13 
FORMAT FORMAT = generate formatted output Lines 16-5 -1984 00:34: AX-11 Bliss-32 V4.0-74 
VOe~000 - 1 30071382 19:50:59 ANNOFF SRE IFORMAT OL 


grote ue and eet top for RUNOFF output. 

odified FORMAT to quote — the RUNOFF flags used by CONTENTS. 
Modified CNTVMS to fix default for /DOUBLE_SPACE and do more 
value checking. 


Label 
OOo 


Ooo 
oun 
Ooo 


— 


004 JPK00007 14-Feb-1983 
Global edit of all sources for CONTENTS/DSRTOC: 
module names are now consistant with file names 
copyright dates have been updated 
facility names have been updated 
revision history was updated to be consistant with DSR/DSRPLUS 


' 

i 

i 

' 

i 

i 

i 

i 

i 

i 

i 

! 

; 003 JPK00006 14-Feb-1983 

; Modified CNTVMS, CONTENTS, FORMAT and CNTVMSMSG to generate 
error messages for DSRTOC or CONTENTS Gepend ing on the 
! 
i 
i 
i 
i 
i 
1 
i 
i 
i 
' 


SoOOOCOoCoO 
PARP A SOO 


compiletime variant for DSRPLUS (/VARIANT:8192 


002 JPK00004 11-Feb-1983 

Changed the global variable name INDENT to LINE_INDENT in 

modules CONTENTS, CAPTION, FORMAT and GBLDCL. 

Removed declarations of PDENTS in modules CNTVMS, CONTENTS, 

and CAPTION and replaced with a module wide BIND using the 

new name INDENTS. 

Changed pene, Soe of INDENTS C1]. It no longer represents the 
e 


sum of the chapter and title indents. 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
insref : NOVALUE, 


OO 00 0909 00 09 00 09 09 09 09 NI NIN SONI NINN NA AAAAAAAAO 
—SOOONAUE WN $0 OONOU SWAY OO ONOUS WR 


Insert a page reference 


SOOSOOCSCSCOOOOSOOCOSOSSOSOSOOCOOCOOOCOOOCOOOSoO 
BDO OOD ODO OGG. G9 G0 G2 Go G9 G9 GE GP Sh I ddd TI IRR 


COOSOOSCOOSOOOSOSOOSSOSOSOOSOSOOOOOSOOOOOOSD OOOO OOOOOSoO 
OOO NOOO NO INE WIN § 9 OD NAW EWN 9 OO NOAU EWN 0 OD NAOU EWN COONAN EW 


a ee ee ee ee ee ee eS 


' 
o fmttxt : NOVALUE, i Format and output text 
9 endwrd : NOVALUE, ' Verify word fits on Line 
4 split : NOVALUE; ! Start new output file for TMS 
96 ! 
97 ! INCLUDE FILES: 
i 
199 : LIBRARY ‘NXPORT:XPORT'; 
198 L 01 ZIF BLISS (BLISS32) 
10 1 ZX THEN 
104 10 
105 10 REQUIRE ‘REQ:CNTVMSREQ'; 
196 <0 
10 4 FI 
108 $0 
1%) ie REQUIRE ‘REQ:TOCRTY'; ! Table of Contents file formats 
43 rf REQUIRE ‘REQ:CNTCLI'; ' Command Line information block formats 
118 33 
114 5 ! 


SS 
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FORMAT = generate formatted output Lines 
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FORMAT FORMAT = generate formatted output Lines 


— 1 
~~ Oo 
s 
= 
i 


: 7 r } Insert specified character sequence into file, as is. 

: 174 m 0649 1 put (str) = 
1B ee RAT | We ee wenee ois : 
3 str_copy (string = str, target = tmpstr); 

: 159 i. ? 1 hrout = sghrout + .tmpstr gtrsh lon thi; | 
; 178 ? } $xpo_put (iob = tocoob, string = Empstr); 
; } 9 : ‘ ! | For TMS output, split the output file if it gets too large 

> " 1 

: } ‘ 4 ! IF .cmdblk Ccontents$v_tms11] THEN split (); | 
; 139 M 0660 1 END 
> «4186 661 1 x; 

: 187 662 1 

; «4188 0665 1! 
: 189 0664 1 | EQUATED SYMBOLS: | 
; 190 665 1! 

; 191 0666 1 

3 135 0667 1 LITERAL 
3; VW 0668 1 tms_characters_per_file = 20*512, ! TS files may be 20 blocks long 

> «194 0669 1 rintes = %0'34" : ONSIGNED (8), 

3 195 0670 1 true = 1 

: 196 0671 1 false = 6; 

; 197 0672 1 

: 198 673 1! 

3: 199 674 1 ! OWN STORAGE: 
; 200 0675 1! 
; 201 0676 1 
; 4 0677 1 OWN ! Storage for remembering words. 

; $3 0678 1 fileno : INITIAL (0) ! Output file number 

3; 204 0679 1 outfile : $str_descriptor (class = dynamic, ptr ing = (0,0)), ! Save output filename here 

; 205 0680 1 wrdptr, ' CHSPTR to start of current word. 

; 206 0681 1 extwrd, ' Number of print positions in current word. 

3 sida 398 : intwrd; ! Number of characters needed to represent current word. 

3 509 0684 1! 

: 10 0685 1 ! EXTERNAL REFERENCES: 

; 211 0686 1 ! 
: \¢ 0687 1 
: i 688 1 EXTERNAL | 
; 214 689 1 cmdblk : $contents_cmd, ! Command Line information block 
3 $12 690 1 tocoob : $xpo_iob 7), ' 108 for the resulting .RNT file 
; 216 691 1 chrout, ! Number of characters written to output file 

: 217 0692 1 tmpstr : $str_descriptor (), ' For temporary strings 
; 218 06935 1 n, ' "'n*' from latest .HL n command | 
3 219 694 1 major, ! Major record type code 

; $9 695 1 lp, ' CHSPTR along Line being built up 
3 1 696 1 intlin, ' Number of characters needed to represent text 
3 § 697 1 extlin, ' Number at resulting print positions 

3 698 1 Line : VECTOR CCHSALLOCATION (10000)], ' Buffer in which Line is being built up. | 
3 4 4 1 enpag, ! Number of characters in the converted page number. 
; $2 1 txtpag : VECTOR CCHS$ALLOCATION (50)], ' The text (lots of room 

; § 1 rmargin, ' Used by ENDWRD for controlling filling Lines. 

3; de 1 wrap, ' Wrap -one Lines around to here. | 
; 228 1 Line_indent; ! Assume this standard indentation before the text. 
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! File open error handler 
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FORMAT = generate formatted output Lines 
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13 
AT = generate formatted output Lines 18-5¢ 1984 00:34: AX-11 Bliss-32 V4.0-74 
EF = Insert page reference Fnto Line 1 30071382 99:36:38 RUNOFF. RCIFORMAT.BLI; 


ZSBTTL "INSREF = insert page reference into Line’ 
OVALUE = 


IF .hl_in GTR .cmdblk Ccontents$g_page_level] THEN RETURN; 
IF .cmdblk Ccontents$v_tms11] 
THEN 
write _char (%C‘a') 
ELS 
BEGIN 
i OK. User wants this header to show dots and page number. 
! Insert a sequence of alternating dots and spaces out to where the 
; page number will go. 
} irst force a space to follow the last text character. 
IF pout in LSS .rmargin 
BEGIN 


i The position of the last character of the text 
! is not inside where the page number goes. 


FORM 
INSR 
fie 1 
71 1 GLOBAL ROUTINE insref : 
as yi 
18 | FUNCTIONAL DESCRI®TION: 
at ! This routine inserts a page reference into the output Line 
f 9 ! FORMAL PARAMETERS: 
7e2 1 None 
7 : 1! 
f : } IMPLICIT INPUTS: 
7 3 ii cmdblk = command Line information block 
? 73 hlin - current header leve 
728 1! rmargin - _ Bergin 
8 4 : } extlin = external Line Length 
97 1 IMPLICIT OUTPUTS: 
07 ¢ 1 i wrap  —_ =_ Line wrap point 
0734 1! rmargin = right margin 
8 2 ' } - variables related to output Line 
O73” 1 ' ROUTINE VALUE: 
738 1 ' COMPLETION CODES: 
4 , oF 
SHEL eines 
O74¢ SIDE EFFECTS: 
0744 1 i None 
greg dio 
Sk BEGIN 
toe 
749 
0750 
0751 
O° 26 
Bre 
754 
He 
FS 
758 
759 
760 
761 
76 
7 
i 
4 
4 
4 


23 
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FORMAT = generate formatted output Lines 16-Sep-1984 00:34: AX-11 Bliss-32 V4.0-74 ° 
v04-000 INSREF = insert page reference Pato Line 12-8081 382 90:36:59 RUNOFF .SRCJFORMAT.BLI; a (23 
: 95 168 4 ! 
; 29 7 write. char (%C° ', counts_visually); 
; 29 77) END; 
; 298 at: | 
; 299 77 ! 
: si ore } Now start inserting the dot-space sequence 
; 0¢ £06 | 
: B gre INCR i FROM (.extlin + 1) TO .rmargin DO | 
; 05 Hh Insert a space for odd columns, a dot for even ones. | 
; 89 P Q7 ¢ write char ((IF .i THEN %C° " ELSE CHSRCHAR (CHSPTR (cmdblk Ccontents$c_leader_char]))), 
; 308 07 ¢ counts_visually); 
; 309 07 
: Hg oF 3 | iesert following th h 
3 ! Insert a space following the sequence so there's 
: \¢ B78 no dot lat before the Bese amber. 
3 Hr 0788 write char (%C" ", counts_visually); 
: 316 0790 i Before putting the page number through the standard text processor, 
: 37 144 set the ures Soint Ta cose the page Kumber doesn't fit. r 
3 319 O78 wrap = .cmdblk Ccontents$g_page_width] - .lenpag; 
: 321 0795 ; i Allow the page number to cause the Line to be 
; $$ 8238 } filled out to the full page width. 
F 357 3738 3 rmargin = .cmdblk Ccontents$g_page_width); 
$s 3e2 799 END; 
3 See 0800 
5 Ber 0801 ' 
: $8 Bang § Finally, insert the generated page number onto the Line 
: $0 0804 2 fmttxt (.lenpag, CHSPTR (txtpag)); 
; $4 Bane 3 IF .cmdblk Ccontents$v_tms11] THEN write_char (%C'a"); 
: 334 0808 1 END; 


-TITLE FORMAT FORMAT - generate formatted output Lines 
I \v04-000\ 


-PSECT SOWNS,NOEXE,2 


00000000 
000 


00060006 


Ea 

~ 

nm 
Se eeeee 


| 
DSRTOC$_OPENOUT | 
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13 | 
roanal FORMAT generate formatted output Lines 18-Sep-1984 90:36:88 AX-11 Bliss-32 V4.0-74 Page 8 


INSREF = insert page reference into Line 14-Sep-1 RUNOFF .SRCJFORMAT.BLI; (2). 
| 

«EXTRN DSRTOCS_VALERR, DSRTOCS$_CAPTIONS | 
«EXTRN DSRTOC$_CLOSEQUOT 
«EXTRN DSRTOCS_ CONF QUAL | 
eEXTRN DSRTOCS_CTRLCHAR 
eEXTRN DSRTOCS_EMPTYIN 
eEXTRN Ban 105205 CNOnED 
sEXTRN DSRTOCS_INVINPUT 
EXTRN ebbss MGs ty 
eEXTRN DSRTOCS_OVERSTRK 
eEXTRN DSRTOCS$_COMPLETE 
eEXTRN DSRTOCS$_CREATED 
~EXTRN bbss Hb neil bad 
«EXTRN DSRTOCS$_IGNOREOLD 
sEXTRN DSRTOC$_PROCFILE 
EXTRN DSRTOC$_TEXTD, DSRTOCS_TMS11 
-EXTRN DSRTOCS_IDENT, CMDBLK 
-EXTRN TOCOOB, CHROUT, TMPSTR 
-EXTRN HL_N, MAJOR 


| 
| 
| 
-EXTRN WRAP, LINE_INDENT 
EXTRN OPEN_ERROR 


-PSECT S$CODES,NOWRT,2 


00FC 00000 .ENTRY INSREF, Save R2,R3,R4,R5,R6,R7 : 0713 
57 000000006 EF 9E 9000¢ MOVAB LENPAG, R7 : 
56 000000006 EF 9€ 0000 MOVAB MARGIN, R6 F 
55 000000006 EF 9€ 00010 MOVAB INTLIN, ; 
54 900000006 EF 9€ 00017 MOVAB EXTLIN, R4 : 
53 000000006 EF 9€ 001g MOVAB CMDBLK. R3 ; 
5¢ 000000006 EF 9€ 000 MOVAB LP, R2 : 
08 A3 000000006 EF D1 0002¢ CMPL HL_N, CMDBLK+8 : 0749 
6C 14 00 BGTR ; 
07 63 01 gi 00 BBC #1, CMDBLK, 1$ : 0751 
00 82 40 8F $0 0003A MOVB #64, aLP : 0753 
41 11 0003F BRB 7$ : 0751 
66 64 01 90041 1$: CMPL EXTLIN, RMARGIN : 0763 
OA 18 00044 BGEO $ : 
00 B2 20 90 00046 MOVB #32, @LP : 0770 
62 D6 0004A INCL LP ; 
65 06 b004¢ INCL INTLIN : 
64 D6 0004 INCL EXTLIN : 
51 64 p 009 2$ MOVL EXTLIN, I : 0777 
6 BRB $ : 
95 51 £9 00055 3$ BLBC~COsédL,y, ‘4S : 0782 
0 20 DO 00058 MOVL #32, RO ; 
4 11 B BRB 53 ; 
50 02 =A 9A D 4$ MOVZBL CMDBLK+2, RO ; 
00 B2 50 90 61 5$ MOVB  ~=RO, alP : 
62 06 3 INCL LP ; 
6 D6 6 INCL INTLIN $ 
E6 51 e rs re 6$ hosted ERARGIN 1, 38 : 
00 B62 $6 9 oF MOVE #32, aLP : 0788 
64 db H INCL EXTLIN $ 
000000006 EF 18 AB 67 ¢ 7 SUBL3. LENPAG, CMDBLK+24, WRAP : 0793 


oO 
~ 
~ 
~~ 


13 
FORMAT FORMAT = generate formatted output Lines b-3¢ 1984 00:34: AX-11 Bliss-32 V4.0-74 
v0e-000 INSREF = insert page reference Rnto Line 300-1382 99:36:39 RUNOFF .SRC FORMAT OL. 


66 18 A ) 7 MOVL CMDBLK+24, RMARGIN 

ge 8 - inet Yorcan 

anooooons §F BF Sooke = usa TKTPAG 

00000000V EF ¢ 4 CALLS 1°. FMTTXT 
09 3 § 5H BBC #1, CMDBLK, 8$ 
00 B82 40 BF 90 MOVB #64, aLP 
rt: 06 9 INCL L 
6 ° OOA INCL INTLIN 
4 QOOA2 8$: RET 


; Routine Size: 163 bytes, Routine Base: S$CODE$ + 0000 
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FORMAT FORMAT = generate formatted output Lines 16-Sep-1984 00:34: AX-11 Bliss-32 V4.0-74 Page 10 
V0e-000 FMTTXT = ped and format text : 13-808-1382 99:36:39 RUNOFF . SRC FORMAT BL 144 ’ J 
5 9 1 ZSBTTL ‘FMITXT = scan and format text’ 
; ! } GLOBAL ROUTINE fmttxt (txt len, txt ptr) : NOVALUE = 
: 339 121: 
3 re 18 } FUNCTIONAL DESCRIPTION: | 
: 4g if ! This routine scans the input text and formats it into Line. 
: 344 0 13 1 Special characters are quoted for RUNOFF output or changed to the 
3 re 0 ! } appropriate sequence for TMS unless the text is from a .SEND TOC. 
; ¢f p Y ! Special characters from .SEND TOC are inserted as is for RUNOFF. 
: 349 08 § 13 Special characters from ; SEND TOC are inserted as is for TMS 
; 350 08 1! with the exception of ‘>’ which is inserted as '>', the Line 
3 51 88 4 1! is broken, and a new Line is started with ‘'<'. This is because 
; 26 Be 5 ! } »SEND TOC text is inserted as a comment for TMS. 
; 354 08 5 1 Emphasis in the input wpring is kept if emphasis is enabled 
3 3? Be 3 ! for the current header level or if the text is from a .SEND TOC. 
; 37 0830 | FORMAL PARAMETERS: 
; 359 ttt 1! txt_len - bength of input string 
: 300 08335 1! txt_ptr - CHSPTR to input string 
; 361 0834 1! 
3 368 th : IMPLICIT INPUTS: 
: 364 0837 1! cmdbLk - command Line information block 
; $0? 0838 1! major - type of text being processed 
; 366 0839 1! hlin - header level number being processed 
; 367 0840 1! lp - CHSPTR to next character position in Line 
; 368 0841 1! intlin - internal Line length 
; 369 Bats 1! extlin - external Line Length 
; 370 0845 1! rmargin - indicates how far to the right text may be inserted 
: 371 0844 1! wrap = column to wrap a broken Line to 
3 Le: pee? : } Line_indent - number of columns which Line is indented 
; ra O87 { IMPLICIT OUTPUTS: 
: 37 0849 1! lp - points to next available character position in Line 
$ of 0850 1! intlin - reflects new internal length 
; 378 0851 1! extlin - reflects new external Length 
3; 379 $36 1! wrdptr - set to initial value of lp 
; 380 53 1! intwrd = set to initial value of intlin 
3 3 tt ! extwrd - set to initial value of extlin 
: BS 0896 1 ' ROUTINE VALUE: | 
s Be $2 : COMPLETION CODES: | 
: Hs Bp ti Non | 
: as 1 1! SIDE EFFECTS: 
; 9 ; 1! 
: 390 & None 
: 91 1 !-- 
; 392 865 1 


A — + 


FORMAT FORMAT = generate formatted output Lines 1% 1984 00:34: AX-11 Bliss-32 V4.0-74 = 1) 

v04-000 FATTXT = Reon and format text . 14- at 99:36:59 RUNOFF .SRCJFORMAT.BLI; — (3) | 

; te § BEGIN 

: 395 68 LOCAL 

3 a8 6 keep_bold, 

7 ty keep_un 

; 398 ? doing_bold, | 

; 399 if doing_und, 

: 400 bas bold_char, 

: ret are eget 

3 open_quote, 

: 208 876 tr | 

; 404 87 en; | 

: toe 879 

; 209 0880 i Keep beising if .SEND TOC and user said fOA Deon thing | 

; toe ett or if the hl value of the text LEQ the user specified level. | 

: 410 ons IF ((.major EQL_maj_send) AND (.cmdblk Ccontents$g_bold] NEQ -1)) 

: a33 tt a = (.hlin LEQ .cmdblk Ccontents$g_bold]) 

; 418 0886 keep_bold = true 

: 415 0888 keep_bold = false; 

: 29 0890 ; 

: 418 0891 i Keep underlining if SEND TOC and user said /UNDERLINE=anything 

: ¢38 Bas or if the hl value of the text LEQ the user specified level. 

: 421 0894 IF ((.major EQL maj_send) AND (.cmdblk Ccontents$g_underline] NEQ -1)) 

: ? ; +43 OR (.hl_m LEQ .cmdblk Ccontents$g_underline]) 

3 : : +44 _ keep_und = true 

; ? $ 344 keep_und = false; 

> 428 0901 len = .txt_len; '! Copy string Length 

: 429 44 ptr = .txt_ptr; ! and pointer 

: 4 090 wrdptr = .T ' Initialize word pointer 

; 431 0904 intwrd = .intlin; ! internal word length 

; $38 905 extwrd = .extlin; ' external word length 

; 43 i doing_bold = false; ' Bold is off 

; 4 90 doing_und = false; ' as is underlining 

; 435 0908 bold char = false; ' Character is ot bold 

3 $38 94144 und_char = false; : or underlined 

; ? , aiY open_quote = true; ! First ‘'* we see is an open quote | 

: 439 g¢ WHILE .Len GTR 0 DO ! Process whole input string 

OBE oh | 

: 46 915 LOCAL 

| 319 ss | 

> 445 918 ch = CHSRCHAR_A (ptr); ' Get next character 

3 7 4h len = .len - T; ! one less character | 

: 448 $31 IF _.ch EQL rintes | 

3; 449 922 THEN | 
| 


M13 
FORMAT FORMAT = generate formatted output Lines 16-Sep-1984 00:34: AX-11 Bliss-32 ¥4.0-74 Pa 
v04-000 FMTTXT = Sen and format text . 12286871382 99:36:39 RUNOFF ..SRCJFORMAT.BLI; ™ HB 
; 450 3 4 BEGIN 
; 4 334 4 RUNOFF int l 
3 : nternal escape sequence 
; 4 : 9 $ 4 : 7 . 
8 BES cay 
; 4 $ 9 4 nc, 
> 45 9 ? 4 op; 
>; 458 9 4 
; 459 9 § 4 fnc = CHSRCHAR_A (ptr); ! Get function 
: 460 9 4 op = CHSRCHAR_A (ptr); ! and operand 
: re 4 : é len = .len = 2; ! 2 less characters to process 
; 46 9 $ 4 SELECTONE .fne OF 
; 464 \] 4 SET 
; 465 0938 4 
; 466 83 9 4 Czc'o') : 
: 467 940 2 BEGIN 
; 468 0941 ’ 
; 469 S94 4 5 ! Overstrike 
; 470 094 é : 
; 471 0944 write char (.op, counts_visually); 
3; 47 0945 5 
; 47 0946 5 IF_.cmdblk Ccontents$v_tms11] 
: 474 0947 5 THEN 
3; 475 goee 6 BEGIN 
3; 476 949 6 ! 
3; 477 0950 6 ! Overstriking is frowned upon for TMS 
: 478 0951 6 ! 
: 479 L 0336 6 ZIF ZBLISS (BLISS32) 
; 480 0953 6 ZTHEN 
; «(481 0954 6 SIGNAL (contents$_overstrk, 0, contents$_textd, 2, .txt_len, .txt_ptr); 
; 48 U 0955 6 XELSE 
; 48 U 2926 6 $xpo_put_msg joover thy = warning, 
3; 484 U 0957 6 string = ‘the following Line contains an overstrike sequence’, 
; 485 U 0958 6 string = (.txt_len, .txt_ptr)); 
3 rt 4] 0959 6 ZFI 
> 487 0960 6 
; 488 349 6 lLiteral_text (‘Cec]'); 
3; 489 206 
; 490 96 SE 
; 491 964 write_char (2C'%'); 
: é3 ye 4 END 
3; 494 369 & 
3; 495 Boe 4 Cac°e*) : 
: $38 39 4 , 
3 rhe 144 ? Bold next character if keeping bold 
: 344 4A ? bold_char = (IF .keep_bold THEN true ELSE false); 
3 261 974 4 CzC'u'] : 
: 08 975 4 : ; : 
; 237 4d 2 Underline next character if keeping underlining 
; 208 978 4 
; 506 79 4 


und_char = (IF .keep_und THEN true ELSE false); 


nN 13 
FORMAT FORMAT = generate formatted output Lines 16-Sep-1984 00:34: AX-11 Bliss-32 V4.0-74 Pa 3 
Vv FMTTXT = Sean and format text . 1 =3007 1382 99:36:59 RUNOFF .SRCJFORMAT.BLI; - (3) 
: $07 980 4 COTHERWISE) : | 
i a1 Fie Spare 
; ! Unknown sequence - do nothin 
: 810 a3 : . | 
3 Sti 984 4 : | 
; ig 985 4 TEs; | 
3 31 9 4 
> 514 987 4 END | 
: 515 9 3 3 ELSE 
; 1 9 4 BEGIN 
‘ai 990 4 : 
3 3 991 4 : A ‘normal’ character 
3 3Y 338 4 : 
; 520 09935 4 
3 1 0994 4 IF NOT .bold_char 
; ¢ 04 4 HEN 
: 5 BEGIN 
; 4 bad 2 ' 
; 525 998 ! Do not bold this character 
; 526 0999 ? ! 
s Ser 1000 
3 fee 1001 2 IF .doing_bold AND (.ch NEQ %C° *) 
H 267 1Sne THEN 
3 330 1003 6 BEGIN 
; 531 1004 6 : 
; 236 1005 6 ! Bold is turned on and the current character is non-blank 
s 3 1006 6 ! Turn off bol 
; 534 1007 6 ! 
3 3a0 1008 6 
3 239 Hs ? IF .cmdblk Ccontents$v_tms11] THEN Literal_text (‘Cfr') ELSE Literal_text ("\*"); 
; 538 1011 6 IF .doing_und 
: 539 I9t¢ 8 THE 
; 540 101 BEGIN 
; 541 1014 7 
; 246 1015 7 ! Must turn underlining off too on since both bold 
; «54 1016 7 ' and underline use the same termination sequence 
: 308 118 
3 248 13 4 IF .cmdblk Ccontents$v_tms11] THEN Literal_text ('fr*) ELSE Literal_text (‘\8'"); 
3 c8 1021 7 IF_ .und_char 
3; 549 1958 7 THEN 
; 0 1 BEGIN 
: 1 1024 i 
3 236 1025 ' This character is underlined 
3 3 10 § ! Turn underlining back on. 
. ee : 
; 236 19 , IF .cmdblk Ccontents$v_tms11] THEN Literal_text ('fi') ELSE Literal_text ('*8&"); 
; 338 1031 END 
; 55 1 ELSE 
; 560 1 7 } 
: 361 1034 7 ' Character is not underlined . 
3 6¢ 1035 7 ' Note that we've turned off underlining 
; 1036 7 ! 


PS 


sabtiinintnneriniiai — 


14 
FORMAT FORMAT = generate formatted output Lines 16-5¢ -1984 00:34: AX=-11 Bliss-32 V4.0-74 FOR! 
v04-000 FMTTXT = Seen and format text , 1 =3007 138% 99:38:59 RUNOF FCSRESFORMAT: or fs a HY VO4: 
; 564 1037 7 i = H 
: 28e ] 3 4 doing_und = false 
; ? 137 é END; 
3 eS } ip IF .cmdblk Ceontents$v_tms11] THEN write char (%C'J"); 
; $70 104 i . ' 
: 1 4k | genng.bold false i 
: 3ng 1046 END 
: 574 1047 4 ELSE 
ote ein 
3 Hi : Bold next character 
; 580 105 IF NOT .doing_bold 
: 381 1034 THE Oris eat 
oe: es 
385 1038 é Turn on bolding 
; HA 13e8 3 IF .cmdblk Ccontents$v_tms11] THEN Literal_text ('CfbJ]") ELSE Literal_text ('**"); 
: 589 106 i = ; 
By pe 
338 1086 ama = false; ! Reset bold character flag 
: 595 1068 4 IF NOT .und_char 
> 596 1069 4 THE 
2 one pa 
; $00 1078 ; Do not underline this character 
3 ; Re 
; 60 1075 6 IF .doin d AND (.ch NEQ 2C* ‘) 
: 803 1076 § — : 
iB Wt es 
> 606 1079 6 i Underlining is turned on and the current character is | 
; 607 1980 6 ! non-blank. Turn off underlining. 
iB ies : 
; 3i9 1988 ? IF .cmdblk Ccontents$v_tms11] THEN Literal_text (‘Cfr*) ELSE Literal_text (‘\8"); 
3 oNg 1086 6 IF .cmdblk Ccontents$v_tms11] 
ee iY eeu 
; 616 1089 7 i If bolding is on, turn it off and back on since 
: eit 344 4 both bold and underline user the same terminators 
: 815 109¢ ¢ 
; 620 1093 7 


IF .doing_bold THEN Literal_text (‘frfb"); 


FORMAT FORMAT = generate formatted output Lines 1b-5¢ Sep-1984 AX-11 Bliss-32 V4.0-74 Page jl 
-000 FATTXT = Seen and format text en: ~Sep-1 382 9: 36; $$ RUNOFF .SRCIJF dandt Si 104 ° a 

; 621 109% 7 ; , 
; © ¢ 1095 write char (%C'J'); sf 
: 85 1087 & ser | : 
; 625 1098 doing_und = false; | : 
3 6 § 109 END; ; { 
; 6 8 i ° END : 
: 629 11 é 4 ELSE : 
et pete . 
: 6 g 1105 i Underline next character ; | 
3 4 i 5 : ¢ 
: 635 1108 IF NOT .doing_und 3 | 
: 636 1109 THE Se 
ORY oa 7 
: 639 Wig 6 i Turn on underlining - 
me OS : : 
: one 1112 2 IF .cmdbik Ccontents$v_tms11] THEN Literal_text (‘Cfil') ELSE Literal_text ('*&"); ; 
: 644 117 6 doing_und = true; : 
BiG we 2 
> 647 1159 5 und_char = false; ! Reset flag 3 { 
Be iE ow 3 
: 650 1133 4 SELECTONE true OF e { 
. ne . | 
: 833 1126 4 C.ch EQ. XC' ') : : 
; O28 1 i ? endwrd (true); : 
; 656 1129 4 C.ch EQL 2C'>"] : 3 § 
OG ae Z 
: 659 1132 5 IF .major EQL maj_send 4 
; 660 11 5 THEN 4 
: 661 1134 6 BEGIN 3 { 
3 666 1132 ? write_char (.ch, counts_visually); : 
: 664 et 6 IF _ .cmdblk Ccontents$v_tms11] : 
; re 1139 5 = BEGIN : 
> 667 1140 7 ' - 4 
: o38 133) 4 For TMS, a '>* in a SEND TOC starts a new Line : | 
: $70 1148 4 put i, sing} in. CHSPTR (Line))); : | 
3 clr 3 

; 67¢ 1145 7 write_ char ixc'<"); . | 
s 67 1128 7 wrdptr = .lp; ¢ 
3; 674 1147 7 extwrd = textlin; 3 

3 675 1148 7 intwrd = ,intlin; : 
3 o76 1149 6 END; i 
; 67 1150 6 3 


FORMAT 
v04-000 


BO 
x S 
at 


D 14 
- generate formatted output Lines 16-Sep-1984 234: AX-11 iss-32 V4.0-74 
- Seon and format text ‘ 122868: 38 99:56:39 RUNOFFESRE FORMAT OL tf Sone J 


END 
ELSE 
BEGIN | 


if -cmdblk Ccontents$v_tms11] 
Literal_text ('+2") 


ELSE 
write char (.ch, counts_visually); 


END; 
END; 
C(.ch LSS %C° ') OR (.ch GTR %0'176')] : 
BEGIN 


A control character 


IF_.cmdblk Ccontents$v_tms11] 
THEN 
BEGIN 
Control characters are ignored for TMS output 


fa 


ZIF BLISS (BLISS32) 
THEN 


—_ SIGNAL (contents$_ctrichar, 0, contents$_textd, 2, .txt_len, .txt_ptr); 
$xpo_put_msg segues tty = warning, : 
string = owing Line contains control characters which were ignored’, 


ecce 
awit ad ade edadad dade aie added ad ad ead ada eda ied adeeb aad aaa eadadadadand WW 


RoPoRoRonononony — — 


‘the fol 
1 string = (.txt_len, .txt_ptr)); 
! ZF I 
1 END 
1 ELSE 
1 BEGIN 
1 For RUNOFF output 
1 write_char CBE* *}s ' Quote the character 
write_char (.ch); ' Write the character itself 
2 


IF .ch EQL %0'10' 
THEN ! Backspace shortens the external length 
extlin = .extlin - 1; 


a A A a A, A, A, LR, Le, el, Le, Ll, Ae, en, i el A ll ll ll 


me eet a et a ot = 2s 4 Ss 4  _s 


Bete Ge Ge Ge Be Be Se Be Be Se Ge Se Ge Fe Fe Ge Se FH Se Se Se Se FH Se Se Se Se Se Se SH Se Se SHH Se SH Se Oe SH Se Se Se ee ee Oe SHS e 


END; 
END; 
COTHERWISE) : 
BEGIN 


DODOCWTWOCOCOCOODOOOO OOOO 000009 09 0 WO INI NN SN NI NNO AA AOA AOOUIUIMIMININNIVN)) —_ 
NAA WR CO OO NO UE WP 0 OD NAME WN CO OONOAU EWN ( O OONOAUE WN OOONOUS Ww _—_ 
PUVA BS BE TOR OO OOO ODD UO DO DDD DDD TTT SS UII OPA NIP AAO UO 


NNN a 
PWN OOONO UEWN 0 OONOUSWN Oo 


WAN onononony 


For every thing else... 


4 
14 
FORMAT FORMAT = generate formatted output Lines 16-50 1984 734: AX-11 Bliss-32 V4.0-74 Page 17) 
v0e-000 FATTXT = piled and format text ~ 1 =308 138 99:56:39 RUNOFF .SRCJFORMAT.BLI; . nia 
s 735 120 
; f : } y if «major EQL maj_send 
: 738 1211 6 BEGIN 
; 739 1 1g 6 ) 
; oy i 17 ? } Just write the character for .SEND TOC 
: pag 1215 6 write char (.ch, counts_visually); 
>: 74 1 1 : 
: 764 121 ELSE 
> 745 1218 6 BEGIN 
: 746 1219 6 
s 76 1220 6 ! Check for special characters 
2: re . | 
: 750 1 § 2 IF_.cmdblk Coontents$v_tms11] 
: 751 1g 4 $ THEN 
: 75 1225 BEGIN 
; 75 12 6 7 1 
: 754 1207 7 i For TMS... 
Re BY : 
: 757 1380 7 SELECTONE .ch OF 
; 758 1231 7 SET 
: 6 1535} ey; 
; 761 1234 , Titeral_text ('#n10*"); 
: reg 1236 7 cuc'=") : 
3 ree \s3i 4 Literal_text (‘+n'); 
: 766 1239 7 Cuc'*') : 
s 767 1240 7 Literal_text ('ta"); 
2: - 
; aa 1348 Literal_text ('+te'); 
: 77 1245 7 Cxc'+") : 
3 ag, 1948 4 Literal_text ("+p"); 
: 775 1248 7 Cxc'\'] : 
; o76 1908 Literal_text ("+s"); 
: 778 1251 7 cxc'a') : | 
3 444 : 26 literal_text ("+t"); | 
: 781 1584 7 cxc's") : 
: 4 ' 22 4 Literal_text ('+."); 
: 784 1 3 7 cxc'i") : 
3 Ae ' 28 f Literal_text (‘+tv"); 
: 787 1260 7 cxc'¢{') : | 
: 738 61 , Literal_text ("tw"); 
: 790 1563 Cxc'}") : 
3; «791 1264 7 Literal_text ("+x"); 
| 


=< > 
—— 


F 14 
= generate formatted output Lines 16-Sep-1984 234: AX-11 iss- 4.0-74 
: Mest . 12 Sep 382 90:30:59 Pit 343 bankt 


- scan and format text 


coo zDD 


SO ODNA UE WN OC VOONOUE WN -OVOONOU +z 


WO OOOO 00 090909 09 09 09 09 SIN NIN NINN Or 


wes 


ee Pe Yt a ee 
MEW OVO ONAUE WN — OVOONOULSWN oO 


NOUS WN—OOONO 


C9 09.09 Od Cd CO C9 Cd Od OD Cd Cd 09 Od OD Cd C0 09 CD CD Od CD CD CD C0 C0 08 CD s 109 09 CD CD 
GESF 
CDOOOCCOCOCOOOCONOND 


WWW 
a ee ee ee ee ee ee ee ee ee ee ee te) 


™~wVN00 09 09 09 09 09 09 08 INNIS NO NINN NNN NNN NOOO OOD OOOO DOOVOOOOVDOODONN NNN 


ONO WOOO 
Ron SS ee er 
—OOONOUS WO 00 


= 


p-1 RUNO FORMAT .BLI; 


ac'<'") : 
Literal_text ("+¢y'); 


Cac'c') : 
Literal_text ('+¢("); 


Czc'J") : 
Literal_text ('+)"); 


cac’’’") : 
BEGIN 


IF .open_quote 
THE Miers 
BEGIN 
Opening quote of quoted string 


literal_text — se 
Spenmunte = false; ! Next quote is not an open quote 


ELSE 
BEGIN 


Closing quote 
Literal_text ("''''"); 
gpen.quote = true; ! Next quote is open quote 
END; 
COTHERWISE) : 
A real normal character 


oe write char (.ch, counts_visually); 


END 
ELSE 
BEGIN 


For RUNOFF 


IF ash EQL %C°_") ! ACCEPT flag 
a 


' 

OR (.ch EQL™2C'#") ! BOLD fl 

OR (.ch EQL 2C°!") ! COMMENT flag 

OR (.ch EQL 2C'.") ! CONTROL flag 

OR (.ch EQL 2C°\") ' LOWERCASE flag 
OR (.ch EQL 2C°R") ! OVERSTRIKE flag 
OR (.ch EQL 2C'°8") ! UNDERLINE flag 
OR (.ch EQL 2C°*") ! UPPERCASE flag 


14 
= generate formatted output Lines 18-Sep-1 


} 
FORMAT FORMAT 4 00:34: AX=11 Bliss-32 V4.0-74 Pa 9 FOR! 
v04-000 FMTTXT = Scan and format text 1278681382 99:36:39 RUNOFF .SRCJFORMAT.BLI; nes Aid voue 
; 84 1 7 ! A RUNOFF flag. Quote it. : 1 
: | 1338 ? . : 1 
: 4 ! ¢ f write char (%C'_"); : i 
; 4 | § 7 write char (.ch, counts_visually); : \ 
: 8s a : 1 
oe em: if 
; B28 1331 4 END; 3 1 
; B59 133¢ 4 TES; 2 i 
; bet 1334 END; = 
; eS 1336 END; : 1 
; 864 1 3 1 
i 865 1338 endwrd (false); ! Check to see if word fits 3 i 
; 8s? : ay -cmdblk Ccontents$v_tms11] : \ 
Dio 4 tea, : 
; 4 1344 If _,doing_bold OR .doing_und i 1¢ 
im (lee ein i 
; 1a 1348 : Turn off one of them. : \ 
; 1h 1320 ? literal_text ('Cfr'); : i 
; 879 1382 4 i If doing both bold and underline, turn off the other. ‘ \t 
: Bay 138¢ ; : 4 
: aS 1322 ? IF .doing_bold AND .doing_und THEN Literal_text ('fr'); ; \ 
; 884 1 7 4 write_char (%C']"'); ; \ 
: Bae 1389 ait 1 
; 887 1360 IF NOT .open_quote 3 1 
BO on : 
: is ! $6 Missing a close quote : 
; % L 1365 3 SIF XBLISS (BLISS32) : 1 
3; 89 1 06 THEN 3; 1 
3; 894 136 SIGNAL (contents$_closequot, 0, contents$_textd, 2, .txt_len, .txt_ptr); z 1 
; 895 U1 oe ZELSE ee || 
3 B98 U1 $ $xpo_put_msg {severity = worn ing. . 3 ¥ 
; #89 U 1370 string = ‘the following text is missing a close quote’, s 
: 898 U 1371 string = (.txt_len, .txt_ptr)); : 1( 
oe ee ii 
; 901 1374 END i 1 
: O36 1375 ELSE ; 1 
; 90 137 BEGIN 3 i 
; 904 137 : 3 i 
; 905 1378 ! For RUNOFF 3 u 


SFORMAT BL 1:4 
RUNOFF ..SRCJFORMAT.BLI; 


pe Bliss-32 V4. 1 


FORMAT = generate formatted output Lines 


FMTTXT = scan and format text 


eee ee ee ee ee ee 
LL 
See rere ee teresa te PS CS HS HSS HS SSS HSS CS FSS HS SSeS sa Fe Se FEE FER He 


-doing_und THEN Literal_text ('\8"); ! Turn off underlining 


IF .doing_bold THEN Literal_text ("\*'); ! Turn off bolding 
IF 
END; 


i 


DAO wM~S 
SSSS.5-5-5-5. 
PAAAA AO 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


PSPS PSPS FSFE HS HTS SHS HS HSS FS HS HS HS HS HS HS HR HR HSFCA FRESHER ER ER CR HER FR Pe Pe He 


A 
o 
v 
A A A A AA 
o oO o o oo 
viv Vv Vv vv 
AAAAA A A AAAAAAAAAAAAAAAAAA AAA 
ooooo oOo oO SOOOCOCOCOCCOOCOCOCOCOCOoOoOOoOO COO 
AVVVVV WAY VVVVVVV VV VV VV VV VV AV VV 
OAWAWAA AOU AAA AAAAAAAAAAAAAAQCQAYZZ 
AV &ODOOZO VA “OO * COSCO COOCOOCOCOOOCO VO #« od 
OMAK KV AMV VON RK MOV VOV VV VV VV VV VV VV VV OV om OW 
VB CAS AA 2 OM CARP A LOZ ZAZA ZAZA AAO OO OL OO AN 
ON CN OT FEN ES OINECCMH@OAMY +> BK Rwy © SF EOC 
LHI Ae te LION tet HHH HHH Hl &H LIAO 


xr 8 ee 
aaagaaagaagaartaaaagaagaaaaaaaaaaaaaaaaaad 


SSSSe FTN UAMMIAT SF SRARRDSOOOL NAR DOOD 


DOVLOVCOWOWOCOOwOD << OOODODOMOOOMDOO@OONW-DOOvw 
MWMAMOMOMMMNAMNOUW ounw 


WO EVO ODO ZOO OO BWW NOM FT WOR. DO OO OU. OVO 
OOO WOW OM OSU. OCUR. OOOOR-F CURR UNION OR-. CI 


MVUSSOOOCOVONSOOSSO—-SOOSCSOOSOSOOSOOSOSOOONSooO 
WF COOCOVWOF. OVWOVWOOMOCCOOSCOCOSOSSSSSSr- OOO 


AOQOOOOSSO SOCOM ASCSOSOSOSOSOSOSOSOOOOSOSOSOSOOOOSSooO 
NOOCOOCOCOMOOCSOMNSOMOCOCCOCSCOCSCOCSOSOCOoOoOoOooo 


00 00 00 2A 


: 0810 


STRSFAILURE 


“EXTRN XPOSPLT, XPOSFAILURE 
.PSECT $CODE$,NOWRT,2 


-ENTRY 4 Mee Save R2,R3,R4,R5,R6,R7,R8,RI,R10,- 


-EXTRN XSTSCOPY 


OFFC 00000 


a . ~5 


14 
FORMAT FORMAT = generate formatted output Lines 1b-5e -1984 234: AX-11 Bliss-32 V4.0-74 
VOe~000 FMTTXT = Seon and format text . 1 ~300= 1382 99:30:39 RUNOFF SRE FORMAT BL — 3) 
a 38 SE 888 gen eed : esas | 
CMPL MAJOR, # : 
03 000000006 bf cmPL MA 3 : | 
0 06 19 INCL RO : 
FFFFFFFF 8F 000000006 FF 1 cHPL MDBLK+16, #1 : | 
000000006 EF 000000006 F pi I 1$: CPL HL_N, CMDBLK+16 + 0884 
6E 1 dO 0002C 2s: MOVL #1, KEEP_BOLD + 0886 
é ha 6 ; 3$ ere x EP_BOLD } 888 
0D $f £9 4 4$: BLBC , + 0894 
FFFFFFFF  8F 000000006 FF bf} 03 cmPL CHDBLK+12, #1 : 
000000006 EF 000000006 i pi 0943 5$: CPL HL LN, CMDBLK+12 + 0895 
Oc AE 1 00 0036 6$: MOVL #1, KEEP_UND ; 0897 
3 11 00054 BRB $ : 
OC AE D4 0056 7$: CLRL UN + 0899 
58 04 AC 00 00059 8$: MOVL TXT_CEN, LEN ; 0901 
04 AE 08 AC 00 00050 MOVL TXT“PTR, PTR : 090¢ 
00000000" EF 000000006 EF 00 00062 MOVL LP, WRDPTR : 090 
00000000" EF 600000006 EF 00 0006D MOVL INTLIN, INTWRD + 0904 
00000000" EF 000000006 EF 00 0078 MOVL EXTLIN, EXTWRD : 0905 
08 AE ps 008 CLRL DOING BOLD > 0906 
59 01 7D 0086 MOV #1, OPEN QUOTE + 0910 
57 7C 0008 CLRQ  DOING_UNB : 0907 
38 D5 00088 9S: TSTL LEN + 0912 
03 14 90080 BGTR  10$ : 
0612 31 0008F BRW 91$ ; 
56 04 BE 9A 00092 10$: | MOVZBL aPTR, CH : 0918 
04 AE 06 0096 INCL PTR ; 
5B D7 000 DECL LEN : 0919 
1C 56 D1 00098 CMPL CH, #28 : 0921 
03 13 0009 BEQL =ésédT*(1$ ; 
00B2 31 900A BRW 8$ ; 
50 04 BE 9A 000A3 11$:  MOVZBL @PTR, FNC : 0932 
04 AE 06 OOOA INCL TR : 
51 04 BE 9A OOOAA MOVZBL a@PTR, OP : 0933 
04 AE D6 OOOAE INCL R : 
5B 08 C2 00081 SUBL2 #2, LEN + 0934 
0000004F F 0 : 9084 CMPL NC, #79 + 0939 
000000006 FF viet $i 90 Nee nove OP, aLP > 0944 
900000006 EF D6 OOOCA INCL _INTLIN : 
000000006 Ff iy 000 INCL EXTLIN ; 
36 000000006 EF 1 906 BBC #1, CMDBLK, 12$ > 0946 
E 04 AC D 0000 mova TXf_LEN, -(SP) > 0954 
DD O00E PUSHL : 
000000006 8F DD O00E PUSHL #DSRTOC$_TEXTD : 
E D4 OOOEA CLRL. = = (SP) ; 
000000006 ar DD O00E PUSHL #DSRTOC$_OVERSTRK ; 
900000 G 00 . 2 F CALLS #6, LIBSSIGNAL : 
0 9 G FF 00000000' Ff D F MOVL. P.AAA, aLP > 0961 
00000006 EF 4 CO 00104 ADDL2 #4, LP : 


FORMAT FORMAT = generate formatted output Li 
100-000 FMTT ? opens 


XT = scan and format text 
00000000G_ EF 
00000000G_ FF 
99444443 
00000006 


00000042 = 8F 


A 


00000055 8F 
05 oc 


oe s&s 
o 


POUIMOOOM OM VIN NOOM OM UVUIMNOOM —OOMUIOM MNO FS OVWIMNOO F&F OW OP OVUMIMMNIWO 


00000000 
51 000000006 EF : 


60 18 
000000006 
000000006 


00000000' 


00000000° 
000000006 
000000006 


OVMVnmMmoe Mmmo—-OWmM fn 
DCONFTTO WOOO OO 


000000006 
00000000° 
00000000" 
000000606 
000000006 2 

39 000000006 
60 00000000' 
60 00000000' 


00000000G_ EF 
00000000G_ EF 


mor Oo 
>arnOo O&O 
TAT = IPPON I FF CONN FSI SIP UA — — OOO IN WN & OCOMU— MMOS FOO MOOO TUT & 


14 
00000000G_ FF 5D 
000000006 


{1s 
-seo- 
~Sep-1 


AM 


1 
1 
at 
90 00114 12$: 
D 118 
NF 00157 
D1 129 13$: 
is 1 
E 1 
DO 001 
11 138 
04 81 A 14$: 
11 13C¢ 
D1 001 4 15$: 
ig 014 
E 0147 
DO 00148 
11 0014 
BS 015 168: 
1 00152 17$: 
5? 00155 18$: 
1 00158 
58 0015B 19$: 
1 0015F sve: 
D1 60168 1$: 
13 0016 
DO 00167 
EF 80196 
E9 001 
FO OO17A 
CO 00183 
CO 0018A 
11 00191 
88 0193 22$: 
CO 0019A 
CO OO1A1 
£9 BOTA 238: 
DO 001AB 
£9 o018¢ 
BO 0018 
11 001BC 
B pie tt 
: Bit 5$: 
£3 Oolbs 
oy 0106 
66 00160 
BH a 
C 1F $: 
£O OOIES 
11 1F 
D4 38 
58 9 
0 
D6 


8c 19:56:39 — ERUnorFosneSronmat 6.1; 


#4, INTLIN 
te 
#37, aLP 
LP 

NTLIN 
FNC, #66 
15$ 


KEEP BOLD, 14$ 
‘i BOLD_ CHAR 


BOLD_CHAR 
1 

FNC, #85 
17$ 


KEEP_UND, 16$ 
#1, OND_CHAR 
17§ 


UND_CHAR 
OLD_CHAR, 198 
DOING_BOLD, 218 

5$ 


CH. #32 
208 


LP, RO 

#1. #1, CMDBLK, R1 

P AAB, #0, #24, (RO) 
#3. INTLIN 

P.AAC, (RO) 

#2. INTLIN 

DOING UND, 29$ 

R1, 24$ 

P.AAD, (RO) 

P.AAE, (RO) 


a. INTLIN 
UND _CHAR, 28$ 


P.AAG, (RO) 
#2. INTLIN 
DOING_UND 
Ri Sos 
#98, aLP 
LP 


itt 


60 


FORMAT = generate formatted output Lines 
FATTXT = scan and format text 


17 


— 
@w 


31 


17 


000000006 


00000006 
000000006 


44 0444 
aaa’ 


000000006 
000000006 
000000006 


000000006 
000000006 
000000006 


000000006 
000000006 


000000006 
000000006 


800000006 


000000006 
000000006 


00000000Vv 


WMMM— MMM MMomn rw 
MMAMROVWHNO WHONO OV 


Ne WaTMoO mmmuuw 
oOo NTO TOMTOM 


wim 
mn Um”, 


K 14 
16-Sep-19 
14- Sep “19 
Q0000000G EF D 1 
88 Ag be 13 30$: 
he E if 31$ 
000000006 FF p 3 ; 
00000000' " 1 
4 ¢ F 
ss 8 
00000000" EF ° o 32$: 
4 
; £6 00586 
DO 00250 33$: 
A 04 00 $ 4$: 
ook 5? 3 63 35$: 
ee 
36 Di 0026C 
13 8 of 
000000006 Ff BY : aI 
00000000' Fe 4 09 4 
03 CO 00290 
15 11 60297 
00000000' Fe 08 3 0 37$: 
$5 CO 002A7 
01 €1 OO2AE 38$: 
08 AE €E9 002B6 
00000000' iM 08 3 aA 
4 02C 
5D g $8 0 58 39$: 
SSuESe EES Hit 
gf D4 09 E7 40$: 
43 11 ED 41$: 
57 €8 OO2EB 42$: 
000000006 Fr oY ; 4 
00000000’ O4 c9 O2FD 
an: 6 
15 11 1 
00000000' o 8 : ° 43$ 
$f 
1 OD 44$: 
38 D4 C 45$: 
6 D1 —E 46$: 
. we 1 
0 DD 2 
1 Fe 
FD4C 3 C 47$: 
56 D1 OOS5F 48$: 


1 
AX-11 Bliss-32 V4.0-74 P 3 
‘36; RUNOFF. SRCJFORMAT.BLI; stat 3 
TLIN , | 
SING BOLD : 1043 
3 9398 | 
DOING. BOLD, 34$ : 1058 
#1. CMDBLK, 32S : 
BAA (ROS ; 
#4. INTLIN : 
P.AAI, (RO) : 
a3. INTLIN : 
#1, DOING_BOLD + 106 
BOLD_CHAR : 106 
UND CHAR. 36$ 3 1068 
DOING GUND, 41$ : 1075 
at : 
LP, RO 1083 
#1. CMDB K, 37$ 
AA » #24, (RO) 
#3. INTLIN 
BS AAK (RO) 
2, 


* INTLIN 

CMDBLK. 40$ 

SOING BOLD, 39$ 
AAL 2 aLP 


a, 

#4. INTLIN 
#93, aLP 

LP 

INTLIN 
DOING_UND 
DOING_UND, 45$ 


LP, R 
#1, CMDBLK, 43S 
P.AAM, (ROS 


Tea 

#4. INTLIN 
P.AAN, (RO) 
re INTLIN 
#1, DOING_UND 
UND _CHAR 

CH, “32 

4a$ 

#1 

#1, ENDWRD 


CH, #62 


CeCe Pee Te eee reer e re rere re rere rere rere rere rere re rere rere Tere rare eres} 
— —— 
3 co 
Ooo 
uw Www 


FOR? 
v04- 


. 
a 
a 


pve 


Sete Se Se Se Se ae 
r 


+or 
te 


uw 


FORMAT = generate formatted output Lines 


8c 19:06:89 — RUNOFF sme SrORMAt U1; 


FATTXT = scan and format text 


50 goonngo9e 


~o 
wn 


So 
So 


PIAIDIO VIVIMIO VIVINYYTIM © VT IT MFM iM AIM FHM OOOM SIM OM Vn © SPM SMMOOMOmmnmmun Ommnoo 


OO GNAO$ VA OAL ANSON ANANANANAHANOSWAM AVRO HAMM HM HH SMH HOD 
ww 


oOo 
ww 


——s 
Wo 


OOOO 0009 INIA AO MINE 


mmmuen 
anTnO”N 


MWwMMMNOCVIOOCOWDr>> 


Soooo ooo 

Sooooo ooo 

HHAAG Mac 
poe 


Sooooo ooo 
OOOGOOCOCCOOOOSOSOSSOSCSCSCCOCOCCOSCOOOOOOOOOOOOOOOoOoOOoOO 


PPR EES FF FWA NWN AWA. AAA AANA MAANAAA AANA 


o oOo 
_—* 
oO 
Fre 
re 
oO 


~ 
oO 
rx 
= 


oo 
Meo row owen 


909 $999 “FTF FOWOWMh — S999 90 OVI OMNMMNOPD OOOO" OOS ODOODMIIT OW-9 OW 
D al tal tak tek tah ek kk ee 


ROA MN FOO F OO * “OOOH ASF LM BD MHL NOMOOD LWA L MWNOOO-AOoo— ul" Ow 


OOOO OCOGCOGOOSOSOOGOOOOOOOSGOOOOOCOOOOOOCOOOOCOCOOSOOOOOVOOOOOOOOOOOOOO 


oS 


TRING+3 
E, S$STRSSTRING+4 
$f AILURE 
RSTARGET 
RSSTRING 
XSTSCOPY 
TMPSTR, RO 
RO, CHROUT 
SIOBSOUTPUT, 108$+68 
f $+44 
XPOSFAILURE 
-(SP) 


N 
R 
T 
T 


108$ 
#3, XPOSPUT 
#1, Croat 51$ 


D 
NTLIN, INTWRD 


#1, CMDBLK, 53$ 
AAO, (ROS 


i 


14 
FORMAT FORMAT = generate formatted output Li 16-Sep-1984 00:34: AX- 0- 
vo4-000 FRITXT = $ — i ~3007 1382 00: 34:36 X-11 Bliss-32 V4.0-74 


= $can and format text RUNOFF ..SRCJFORMAT.BLI; 


Page 
1D 000000006 EF 01 £1 0047 BBC #1, CMDBLK, 58$ ; 
ff 04 AC D 138 MOV TXf_LEN, -<(SP) : 
DD 0047¢ PUSHL # F 
000000006 8F DD 0047 PUSHL  #vSRTOCS_TEXTD : 
E D4 004 CLRL. = (SP) : 
000000006 ar DD 004 PUSHL #DSRTOC$_CTRLCHAR : 
000000006 00 6 FB 4 " CALLS #6, LIBSSIGNAL : 
000000006 FF SF 5 90 0049 Hts MOVB #95, aLP ; 
000000006 EF D6 004 INCL LP : 
000000006 Ff p 4A INCL —‘INTLIN : 
000000006 FF 6 4A MOVE CH, aLP F 
900000006 EF D6 00480 INCL LP : 
00000006 FF D6 00486 INCL  INTLIN : 
08 $ D1 0048C CMPL CH, #8 : 
i if 4BF BNEG 6 : 
000000006 ef Dd? 004C1 DECL  EXTLIN : 
A 11 004¢7 BRB : 
03 000000006 FF D1 004C9 59$:  CMPL = MAJOR, #3 : 
3 12 00400 BNEG  60$ : 
0183 31 o4p2 BRW 8R8$ : 
03 000000006 EF 03 &9 0040 60$ BBS #1, CMDBLK, 61$ : 
0160 31 00400 BRW : 
0000005F SF 56 D1 00460 61$:  CMPL (CH, #95 : 
1D if 004E7 BNEG : 
000000006 FF 00000000° EF 05 28 00469 MOVC3 #5, P.AAP, @LP : 
000000006 EF 05 CO 004F5 ADDL2 45. : 
000000006 EF 05 co QO4F ADDL2 #5. INTLIN : 
FB85 31 0050 628: BRW 9 : 
2D 56 D1 00506 63$:  CMPL CH, #45 : 
OD if 00509 BNEO : 
000000006 FF 00000000' BF 8 00508 MOVW P.AAQ, aLP : 
2 11 00516 BRB : 
2A 56 0100518 64$:  CMPL CH, #42 : 
OD 12 00518 BNEQ : 
000000006 FF 00000000' cf BO 0051D MOVW  P.AAR, aLP : 
6 11 00528 BRB : 
3D 56 D1 0052A 65$: CMPL CH, #61 3 
OD if 00520 BNEQ ; 
000000006 FF 00000000" EF BO 0052F MOVW  P.AAS, aLP ; 
A 11 0053A BRB : 
28 56 D1 0053C 66$: CMPL CH, #43 : 
0D 12 0053F BNEQ : 
000000006 FF 00000000" EF 8 0941 MOVW  P.AAT, aLP : 
E 4C BRB : 
0000005C &F 56 D1 246 67$: CMPL CH, #92 : 
0D 12 0055 BNE : 
000000006 FF 00000000° EF 80 257 MOVW  P.AAU, aLP : 
A 6 BRB : 
00000040 8F 56 D| > 68$:  CMPL CH, #64 : 
0D 68 BNEQ 3 
000000006 FF 00000000" EF 8 6 MOVW  P.AAY. @LP : 
A BRB : 
2F 6 D1 0057A 69$: CMPL H, #47 : 
D if 7D BNE : 
000000006 FF 00000000" EF 8 7F MOVW P.AAW, @LP : 
—E 11 .0058A 708: BRB 82$ : 


| 
N 14 
FORMAT FORMAT = generate formatted output Lines 16-Sep-1984 234: AX-11 Bliss-32 V4.0-74 P 6 
v04-000 FMTTXT = Son and format text . 127868718 4 99:36:59 RUNOFF .SRCJFORMAT.BLI; est (3 
0000007¢ =F 6 01 71$: CMPL H, #124 : 1257) : 
36 1 ; BNEG at : ; 
000000006 FF 00000000" EF : MOVW  P.AAX, @LP + 1258 : 
00000078 aF g i ig res: BRB 828 #123 : 1260 
0D A BNEG at : : 
000000006 FF 00000000 cf : 3 MOVW  P.AAY, aLP + 1261 ; 
00000070 &F cB oy OReRe Tes: Be BS nas ; 1263 
0D if SBF BNEQ at} : : 
000000006 FF 00000000' EF : 3c1 MOVW P.AAZ, aLlP + 1264 ; 
2 1 005¢¢ 768: BRB 85$ : ; 
3¢ D1 ace 77$: = CMPL cH #60 + 1266 ; 
0D 13 090 BNEQ 9$ : ; 
000000006 FF 00000000' EF BO 00503 MOVW P.ABA, aLP + 1267 : 
00000058 «&F vat 03e5 an an ee > 1269 : 
0D iF O5€ BNEQ Big : : 
000000006 FF 00000000" EF B80 005€9 MOVW #.ABB, aLP + 1270 F 
A 11 005F4 80$: BRB 85$ : : 
0000005D =F 6 D1 00576 81$:  CMPL CH, #93 + 1272 ; 
0D if O5FD BNEG 83$ : ; 
000000006 FF 00000000" EF BO O05FF MOVW P.ABC, aLP + 1273 : 
4 11 0060A 828: BRB 85$ : ; 
22 6 01 0060C 83$:  CMPL CH, #34 : 1275 : 
77 if 0060F BNEG 88$ : : 
50 000000006 EF DO 00411 MOVL LP, RO + 1284 ; 
B 9 E9 00618 BLBC OPEN QUOTE, 84$ : 1278 ; 
60 00000000' FE BO 0061B MOVW P.ABD, (ROS > 1284 ; 
9 D4 00622 CLRL  OPEN_QUOTE : 1285 : 
OA 11 00624 BRB 8 : 1278 F 
60 00000000" EF BO 00626 84$ MOVW P.ABE, (RO) : 1298 ; 
59 01 DO 00620 MOVL. #1, OPEN_QUOTE + 129 : 
000000006: EF 02 CO 006 0 85$:  ADDL2 #2. L : 1284 F 
000000006 EF 06 £0 006 t ADDL #2. INTLIN jee : 
Q00000SF  8F 56 D1 90640 86$:  CMPL CH, #95 : 1933 ; 
B 13 0064 BEQL«=séS7$ ; F 
2A 6 D1 00649 CMPL CH, #42 + 1313 : 
26 13 0064C BEQL «Ss 8 : ; 
21 6 D1 0064 CMPL CH, #33 > 1314 : 
21 13 0065 BEQL : : 
2€ 6 D1 00653 CMPL (CH, #46 > 1315 : 
1C 13 0646 BEQL : ; 
0000005C 8F 36 D CMPL CH, #92 : 1316 F 
13 13 0065F BEQL : : 
25 56 D1 0661 CMPL H, #37 : 1317 : 
gE 13 00664 BeQL : : 
26 pj 0666 CMPL CH, #38 : 1318 ; 
9 ; i] BEQL 8 3 $ 
0000005E 8F 26 p cnPL H, #94 ; 1319 : 
000000006 FF SF OF 8 74 87% MOVB #95, aLP > 1324 : 
SSSR FEBS BRE EL cay 2 : 
000000006 FF Ef 3 6 88: MOVE CH, aLP ; 1326 | 2 
000000006 EF 06 0068F 89$: INCL LP : | ; 
| 


; Routine Size: 1892 bytes, Routine Base: S$CODE$S + 00A3 


15 
FORMAT FORMAT = generate formatted output Lines 16-5¢ -1984 00:34: AX-11 Bliss-32 V4.0-74 P i 
v04-000 FMTTXT = Reon and format text . 1 30071382 99:36:59 RUNOFF SRETFORMAT OL 14 nse (3 | 
999900006 EF D 95 INCL —_INTLIN ; | 
G EF y INCL eae : 
F9E? Al 908 BRW $ : 1133 
: D4 O06A4 918 CLRL 0 =(S : 13 Hl 
99900000v EF Q F Ab CALLS #1, ENDWRD : 
75 6 FF : & A BBC #1, CMDBLK, 95$ ; 1340 
fy 08 85 ES Coes Biss DOING BOLD. 928 Aste 
000000006 FF 18 a00000006 00 00000000° i F ifs 92$ INSV eat #0, #24, aLP + 1350 
00000006 EF C D0 ADDL2 #3. INTLIN : 
it 08 Ag : 60/ BLBC  DOING_BOLD, 93$ + 1355 
1 7 DB BLBC DOING-UND, 933 : 
990000 OG FF 00000000' EF 8 a3 Ovw 6; aLP : 
aint 43 Ef g f ber ADDL re aps : 
iittdiitts FF SDB § 0 Fo 938: Move #93, aLP + 1357 
Spongb008 EF bg 0705 Inet ENTLIN 
55 34 E 0708 94$ BLBS | OPEN QUOTE, 97$ + 1360 
7E 04 ag fp O75 Boye TxTLCEN, -(5P) 3 1367 
000000006 ar DD O71 PUSHL #DSRTOCS_TEXTD : 
000000006 BF DD 0071 PUSHL  #DSRTOC$_CLOSEQUOT : 
000000006 00 6 FB 0735 CALLS #6, LIBSSIGNAL a deeg 
19 08 AE €9 0072A 95$ BLBC DOING_BOLD, 96$ + 1381 
gosgane ep co; Ge ee Sores BMH, Gt tP : 
000000006 ‘EF 02 C0 0074 ADDL2 #2, INTLIN ; 
19 6 £9 a9747 96$:  BLBC  DOING_UND, 97$ : 1383 
000000006 FF 00000000' €éF 80 074A MOVW  P.ABI> aLP ; 
000000006 EF xe: 00799 ADDL2 #2, LP ; 
00000000G_ EF 2 co 0075¢ ron apple #2. INTLIN ees 
| 
| 
} 


15 
FORMAT FORMAT = generate formatted output Lines 16-50 -1984 00:34: AX-11 Bliss-32 V4.0-742 Page 28 L 
v04-000 ENDWRD - cor fy word fits on fhe 1 =300 138% 99:36:39 RUNOFF SRC FORMAT .BLI: 1 . Pi 0S 
; 318 1 $8 1 ZSBITL ‘ENDWRD = verify word fits on Line’ 
3 gif } 8 ! ROUTINE endwrd (space) : NOVALUE = 
3 238 } 4! : FUNCTIONAL DESCRIPTION: | 
3 Fe) 1 38 7 3 ENDWRD is called when a space is about to be output. For RUNOFF, 
3 § ¢ 13946 1! it makes sure that the word that the space ends fits on the the Line. 
; 4 i ! 3? : } If it doesn't, it wraps the Line. 
s Yeo 1397 1 =! FORMAL PARAMETERS: 
: 359 1399 1 | true if is to b d 
3 ' space - true a space is to be generate 
: 988 1400 1 i . 
; 929 1401 1 =! IMPLICIT INPUTS: 
; 930 1208 | 
; 931 1403 1! cmdb Lk = command Line information block 
3 336 1404 1! rmargin - indicates how far to the right this word can extend. 
3 33 1405 1: Line_indent = number of columns of indentation 
; 934 1406 1! wrap - first column to start new Line in 
; 935 1407 1! wrdptr - pointer to —— of word 
; 936 1408 1! extwrd - external length of line not including word 
3 aef 129% : intwrd - internal length of Line not including word 
; 939 1411 1 3! IMPLICIT OUTPUTS: 
; 940 1216 1! 
; 941 141 7! wrdptr - points to the end of the current word 
; 94 1414 1! extwrd = new external Line length 
: 94 1415 1! intwrd - new internal Line Length 
> 944 1416 1! 
3: 945 1417 1 =! ROUTINE VALUE: 
; 946 1418 1 ! COMPLETION CODES: 
> 947 - 1419 1! 
: 948 1420 1! NONE 
3: 949 1421 1! 
; 950 1358 1 ! SIDE EFFECTS: 
3 Wo) 1425 1! 
: 952 13S¢ 1! NONE 
; 953 1425 1! 
: 954 1426 1 !-- 
; 955 4 14 1 
; 956 1428 BEGIN 
3; 957 1267 
; 958 1430 IF (.extlin GTR .rmargin) AND ( NOT .cmdblk Ccontents$v_tms11]) 
; 959 143) THEN 
: 360 1634 ReGIN | 
3 oe8 1434 ! The word that this space terminates does not fit. Wrap the Line. 
; 96 1435 ! First determine the length of the word just ended. 
; 964 1436 ! Note that WORD _xxxxx were set at the beginning of the word being 
3 +H \e3f } terminated, while the normal counters have been updated ever since. 
; 967 1239 extwrd = .extlin - .extwrd; 
: 208 1277 intwrd = ,intlin - .intwrd; 
: 44 1405 : Now adjust the current Line lengths before outputting the Line 
3s 972 1444 extlin = .extlin - .extwrd; 


D 15 
FORMAT FORMAT = generate formatted output Lines 16-Sep-1984 00:34: AX-11 Bliss-32 V4.0-74 
v04-000 ENDWRD - Serity word tits on t fhe 1e-8ep- 7 99:56:39 RUNOFF ..SRCJFORMAT.BLI; 
; 4 1343 intlin = ,intlin - .intwrd; 
s oro 1203 ! Before outputting the Line that is to be wrapped, make sure that 
5 ar 1228 ! at least two Lines are still available on the page. This avoids 
; Wz 144 ! having the first part of the text on one page and the last part 
; ars 129 of it on another page. 
; aH 1488 put (". TEST PAGE 2"); 
; 1454 ! And now output the Line, up to but not including the word that 
3 oer ieee this space terminates. 
; 985 1289 put ((.intlin, CHSPTR (Line))); 
; 986 1458 clriline 0); 
; 987 1459 ! 
; 988 1460 ! Add sufficient spaces to align the wrapped word with the first 
3 o8p 1093 character of the Line that was just terminated. 
; 991 1288 pad ((.wrap - .line_indent)); 
; 99 1464 : 
; 99 1465 ! Adjust the external Line Length. 
5 Bae 1708 It really represents .line_indent additional characters. 
>; 996 1468 ; extlin = .extlin + .Line_indent; 
: 997 1469 ' 
3; 998 1470 3 ! At this point the word that would have overflowed the Line is 
; .999 1471 ' sitting out in Limbo. But, we know its Length and where it is. 
; 1000 1078 ! Move it to the left so that it's aligned properly. 
: 1001 147 : 
3 1908 1474 
; 100 1475 INCR i FROM 1 TO .intwrd DO 
: 1004 1476 CHSWCHAR_A (CHSRCHAR_A (wrdptr), Lp); 
: 1005 1477 
; 1006 1478 : 
: Hs rt And finally, update the counters that were bypassed in the move 
3; 1009 1481 ; extlin = .extlin + .extwrd;. 
: 1010 1086 intlin = .intlin + .intwrd; 
; 1011 148 END; 
3 iste 1484 : 
3; 101 1485 IF .space THEN write_char (%C' ', counts_visually); 
3: 1014 1486 
3; 1015 1487 } 
3 1918 138 ! Remember current Lengths for use the next time around. 
3; 101 1489 : 
; 1018 1490 extwrd = .extlin; 
3; 1019 1491 intwrd = .intlin; 
3; 1020 1236 wrdptr = .lp; 
3; 1021 1495 1 END; ! End of endwrd 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
32 20 45 47 41 50 20 54 53 45 54 2€ 00090 P.ABJ: .ASCII \.TEST PAGE 2\ 
-PSECT SOWNS,NOEXE,2 


15 
FORMAT FORMAT = generate formatted output Lines bese -1984 234: AX-11 Bliss-32 V4.0-742 Pa 
v04-000 ENDWRD - verity word fits on like 12286-1382 99:36:38 RUNOFF .SRCJFORMAT.BLI;1 - a 
000C 00018 $STRSSTRING: 
1 001A on ae : 
oob00008" pete “ADDRESS P.ABJ : 
.PSECT $CODES,NOWRT,2 
OFFC 00000 ENDWRD: .WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 3 1389 
58 90000006 EF 3 0092 MOVAB LP aif : 
A G EF 9€ MOVAB INTLIN, R10 : 
29 99000006 EF 9€ 19 MOVAB EXTLIN, R9 : 
8 00000000' FF 3 01 MOV INTWRD, RB : 
SE 2 C olf SUBL2 #8 ; 
000000006 EF D1 000 CMPL XfLIN, RMARGIN + 1430 
3 14 00028 BGTR $ : 
01 31 A 1$: BRW : 
F5 000000006 EF 01 € D 2$: BBS #1, CMDBLK, 1$ : 
AB 69 FC As ¢ 5 SUBL3. EXTWRD, EXTLIN, EXTWRD + 1439 
ry.) 6A 68 ¢3 00 SUBL3  INTWRD, INTLIN, INTWRD + 1440 
69 FC Ag C2 0003F SUBL EXTWRD, EXTLIN + 1444 
ra 68 ¢ 43 SUBL2 INTWRD, INTLIN + 1445 
000000006 EF 9F 00046 PUSHAB STRSFAILURE + 1452 
E D4 0004C CLRL = (SP) F 
000000006 EF 9F 0004E PUSHAB $STRSTARGET ; 
04 A& 9F 00054 PUSHAB $STRSSTRING ; 
7E 04 00057 CLRL = = (SP) ; 
000000006 EF 05 FB 00059 CALLS #5, XSTSCOPY : 
0 000000006 EF 3C¢ 00060 MOVZWL TMPSTR, RO ; 
000000006 EF 0 £0 0067 ADDL2 RO, CHROUT : 
000000006 EF 000000006 EF : O06 OVAB $10BS0UTPUT. 10B$+68 ; 
000000006 _ ‘EF 7 90 000 MOVB #7, I0B$+44 ; 
000000006 EF 9F 00080 PUSHAB XPOSFAILURE : 
E D4 90086 CLRL = (SP) ; 
000000006 EF 9F 00088 PUSHAB 1088 ; 
000000006 EF 3 FB 0008E CALLS #3, XPOSPUT F 
07 000000006 EF 01 £1 0009 BBC #1. CMDBLK, 3$ ; 
00000000v_ EF 00 FB 0009D CALLS L : 
6E 6A BO 000A 3S: MOVW  INTLIN, $STRSSTRING + 1457 
02 AE —E 90 000A7 MOVB #14, $STRSSTRING+2 ; 
Si AE ooooooone fF Se BSA Ra lie SESTARC Rng : 
itdditdaitg F 3 par PUSHAB LI RSEATCURE ; | 
E D4 000BD CLRL = = (SP) : 
000000006 EF 9F O00BF PUSHAB $STRSTARGET : 
OC AE 9F 000C5 PUSHAB $STRSSTRING : 
43 D4 000C8 CLRL = = (SP) ; 
000000006 fF 05 FB OCA CALLS #5, XSTSCOPY ; 
0 000000006 EF 3 D1 MOVZWL TMPSTR, RO ; 
000000006 EF 0 0008 ADDL2 RO, CHROUT ; 
00000006 EF 000000006 ai f DF $108S0uTPUT. 10B$+68 : | 
00000006 _ ‘EF 7 EA MOVB =-«#7,,_:«L0B$+44 ; 
000000006 EF F OOOF1 PUSHAB XPOSFAILURE ; 
E D4 000F7 CLRL = (SP) ; 
000000006 EF 9F 000F9 PUSHAB 10B$ ; | 
| 


a ~_ —+ 
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FORMAT FORMAT = generate formatted o t lines 
v0e-000 ; ie 


ENDWRD = verify word fits on Line 


_— 2 


; Routine Size: 382 bytes, Routine Base: S$CODE$ + 0807 


G EF 3 FB OOOF CALLS #3, XPOSPUT ; ; 

07 099000006 EF 0 EF 106 BBC =o #1, CMDBLK, 4$ : : 
0000000v EF Q FB 0010 CALLS #0, SPLIT ; : 

68 000000006 EF 96 00113 48: MOVAB LINE, LP : 1458 ; 

6A D4 0011C CLRL—sINTLIN : ; 

69 D4 0011 CLRL =—sEXTLIN ; 3 

$7 900000006 EF DO 001 MOVL LINE_INDENT, R7 ; 1463 ; 

7 000000006 FF DI 001 CHPL WRAP? R7 : ; 

56 000000006 EF 59 c3 01 6 SUBL3 —R7. WRAP. RG : ; 
56 20 6E 00 08 2 0138 MOVCS #0, (SP), #32, R6, aLP : : 
68 Be co O013F ADDL2 R6, LP ; : 

6A 36 CO 00142 ADDL2 6, INTLIN ; : 

69 26 €0 0014 ADDLg RG, EXTLIN ; : 

69 57 CO 00148 5$: ADDLe R7, EXTLIN : 1468 ; 

50 D4 00148 CLR : 1476 ; 

OA 11 00140 BRB $ ; : 

00 8B FB BB 90 OOI4F 68: MOVB @WRDPTR, @LP : ; 

F8 AB D6 00154 INCL  WRDPTR : : 

68 D6 00157 INCL LP ; : 

F2 50 68 £5 00139 78: AOBLEQ INTWRD, ; ; 
69 FC AB CO 00150 ADDL2 EXTWRD; EXTLIN : 1481 3 

6A 68 CO 00161 ADDL2 INTWRD, INTLIN : 1482 : 

OA 04 AC £9 00164 BS: BLBC ‘SPACE : 148 ; 

00 8B 20 90 00168 MOVB #32, aL ; ; 

6B D6 0016C INCL LP ; : 

6A 06 O01 gF INCL INTLIN ; . 

69 D6 0017 INCL EXTLIN : : 

FC AB 69 DO 00172 98: MOVL EXTLIN, EXTWRD : 1490 ; 

68 6A DO 00176 MOVL INTLIN, INTWRD : 1491 ; 

FB OA 6B D0 00179 MOVL LP, WRDPTR 1498 ; 

04 00170 RET : 149 : 


——_——__—---—--------, 


15 | 
MAT FORMAT = generate formatted output Lines 1h-$e -1984 234: AX-11 Bliss-32 V4.0-74 P | 
v04-000 SPLIT = start new output file = tms if necess 127808- 1382 00:36:59 RUNOFF. SRC FORMAT Su se (3 


ZSBTTL ‘SPLIT = start new ee file for tms if necessary’ 
= 


14 GLOBAL ROUTINE split : NOVALU 
anh 
149 FUNCTIONAL DESCRIPTION: 


This routine checks to see if the TMS output must be split 
to another output file. This is necessary to prevent long 
galleys which could jam the typesetter. 


FORMAL PARAMETERS: 


MEW —OODONOULW 


None 
IMPLICIT INPUTS: 


Bes nny se eure ab SN ah ey ope 


MFWN—OO0® 


chrout = number of characters written to the current output file. 
IMPLICIT OUTPUTS: 
None 


ROUTINE VALUE: 
COMPLETION CODES: 


NO 


i 
i 
i 
04 ! 
048 ! None 
049 ! 
050 ' SIDE EFFECTS: 
051 ! 
b2¢ ! 
05 !- 
054 
a 
bao 
058 
059 BEGIN 
060 ! 
061 } Must start a new output file 


LOCAL 
name_len, 
spec_blk : $xpo_spec_b‘ock; 


IF .outfile Cstr$h_length) EQL 0 
THEN | 


SSEESSTES 


! Save current output file name 


$str_copy (string = tocoob Ciob$t_resultant], target = outfile); 
' 
Write terminator to current file and close it 


$xpo_put (iob = tocoob, string = 'tcfinit"); 
$xpo_close (iob = tocoob); 


Ba Se Se Be Se Oe Be Se Se Ge Se Fe Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Fe Ge Fe Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Ge Se Se Fe Se Ge Se Se Se Se eee Se Se Se Se eee Seeee 
ee ee ee ieee eee SY 
a ee ee eS SS | 

Fe ee ee een end Ab abe bb ah ah ab ah ah ah ah ah ah dh ah ab ah ah ah a ah a a 

DEBE BEE EE AANA NIUPIDRIPYPIPUNINPINPININDS 2 2 OS SS QOD DOOOCOOCOOOOCN/ 

OOD NA UNE WR 0 ODNOA UES WN 0 OD NOAUE WN O OONAUE WIN O OONOAUS WN O 


Sceaceese 
WONOUSWN—OO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 None 
1 
1 
BEGIN 
IF .chrout GEQ tms_characters_per_file 
THEN 
| 
| 


<o 
FS 


415 | 
FORMAT FORMAT = generate formatted output Lines 16-Sep-1984 00:34: AX-11 Bliss-32 V4.0-74 p 
(02-000 SPLIT = start new output file for tms if necess 1 ~3007 138 90:34:59 RUNOFF. RCIFORMAT.BLI: oe a 
; 10 1 ! 
; He} ! : Compute new file name 
: 10 1554 $xpo_ arse_spec (file spec = outfile, spec_block = spec_blk); 
; 1084 1555 nane-len ="(]F .spec 6k Expo$h. file nane “GEQ 6 THEN 6°ELSE .spec_blk CxpoSh_file_name]); 
: 1382 ! $ fileno = .fileno + 1; 
3 1987 ! 3 Initialize 10B, open new file and reset character count 
; 1089 1560 $xpo_iob_init (iob = tocoob); 
> 1090 P 1561 $xpo open (iob = tocoob, options = output, default = outfile 
; 1091 P 1206 File spec = $str_concat ((.name_len, .spec_blk anyone file_name)), 
; 136 P 156 Sstr_ascii ({fileno YNSTGNED leading-zero, Length = 3)) 
: 1307 P 1288 TIF XBLISS (BLI$S52) XZTHEN , failure = open_error %FI 
: 1095 1566 chrout = 0; 
3 1999 1567 
3; 109 1568 ! 
; 1098 1569 ' Tell user about new file 
3; 1099 1570 ! 
: 1100 t 1571 ZIF %BLISS (BLISS32) 
3; 1101 1326 XTHEN 
3 1108 157 SIGNAL (contents$_tms11, 1, tocoob Ciob$t_resultant]); 
3: 110 U 1574 ZELSE 
3 1104 WU 1575 $xpo_put_msg (severity = success, 
: 1105 U 1306 string = page concat (‘output file full - continuing with file ''', 
: 1106 U 157 tocoob Liob$t_resultant], '''')); 
St ne i 
: 1109 1580 
: 1110 1581 ! Write file prologue 
3 1111 1286 ! 
: W1i¢ 158 ; put (‘*start*'); 
3 111 1584 ut ('*cinit*'); 
4414 1385 2 BND: 
3 1115 1586 
3; 1116 1587 1 END; 
-PSECT S$PLITS,NOWRT,NOEXE,2 
2A 69 6E 69 66 § A Q009C P.ABK: .ASCIE \ecfini*\ 3 
A 74 72 61 74 A 8 OA3 P.ABL: .ASCII \*start*\ 3 
A 74 69 6€ 69 6 A OAA P.ABM: .ASCII \*cinit*\ 3 


0097 00020 $I0BSOUTPUT: 


.WORD 7 : 
4 OE 00022 -BYTE 14, 1 3 
00009000" 900¢4 ADDRESS P.ABK ; 
000 0028 SSTRSSTRING: , 
002A “BYTE 14, 1 : 
00¢¢ “ADDRESS P.ABL ; 
030 SSTRSSTRING: 


| 
.PSECT SOWNS,NOEXE ,2 
| 
| 
| 
| 


<a 
FS 


. 
eo 
. 
o 
. 
. 
. 
* 
. 
. 
. 
. 
. 
2 
. 
eo 
7 
o 
. 
. 
” 
. 
o 
. 
o 
. 
. 
. 
. 
: 
o 
. 
. 
. 
o 
7 
. 
. 
. 
. 
. 
o 
. 
. 
. 
. 
. 
. 
. 
. 
. 
o 
. 
2 
. 
o 
7 
2 
. 
° 
. 
* 
. 
” 
. 
a 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
° 
. 
. 
. 
* 
. 
. 
* 
. 
o 


15 
FORMAT FORMAT = generate formatted output Lines rhage -1984 00:34: AX-11 Bliss-32 V4.0-74 Pp 4 GCO 
v04-000 SPLIT = start new output file for tms if necess 1278681382 90:36:59 RUNOFF .SRCJFORMAT.BLI; ae 3 Oe 
1 2 +1) eT : 
“ADDRESS P.ABM : : 
00000000" 0034 , : 
SSTRSTARGET= OUTFILE F 
SSTRSFILE SPEC= OUTFILE ; 
SIOBSDEFAOLT= OUTFILE ; 
.EXTRN XPOSCLOSE, XPOSPARSE_SPEC : 
SEXTRN XSTSJOIN, XSTSASCII : 
“EXTRN XPOSOPEN : 
-PSECT $CODES,NOWRT,2 ; 
OFFC 00000 .ENTRY SPLIT, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 = 1495 3 
5B 000000006 EF 9E 90008 MOVAB CHROUT, R1 : ; 
5A 900000006 EF 9E 0000 MOVAB XPOSFAILURE, R10 : ; 
59 000000006 EF 9€ 90019 MOVAB $STRSTARGET. R9 : ; 
35 bo000000G EF SE 0001 MOVAB | SbBS CRD *e 
5e BO AE 9E $09 § MOVAB -80(SP), SP : ; 
00002800 =F 68 pi 308 3 CMPL CHROUT , #10240 : 1528 : 
04 OOS RET : 3 
68 85 0003 1$ TSTw  OUTFILE + 1539 ; 
16 12 00035 BNEQ $ : ; 
000000006 EF oF 20030 PUSHAB STRSFAILURE + 1544 : 
58 DD 0003F PUSHL R8 : ; 
1¢ «A? OF 00041 PUSHAB $STRSSTRING : ; 
7E 04 00044 CLRL = = (SP) : ; 
000000006 EF 05 FB Bones CALLS #5, “STSCOPY : 3 
44 A? 1¢ AB YE 00040 28 MOVAB $108s0uTPUT. 10B$+68 + 1549 
2c «A? 07 90 00052 MOVB #7, I0B$+44 : 
5A DD 00056 PUSHL R10 ; 
ze D4 00058 CLRL. = (SP) ; 
57 DD 0005A PUSHL 7 : 
000000006 _ EF 03 FB 0005¢ CALLS #3, XPOSPUT ; 
x 02 90 0006 MOVE #2, I0BS$+44 : 1550 
3A DD 00067 PUSHL R10 : 
5 D4 90069 CLRL. = (SP) ; 
57 DD 00068 PUSHL 7 : 
000000006 EF 3 FB 0060 CALLS #3, XPOSCLOSE ; 
A DD 00074 PUSHL R10 > 1554 
E D4 9076 CLRL.  =-(SP) : 
7E 01 ce 7 MNEGL #1, -(SP) ; 
14 AE F 00078 PUSHAB SPEC_BLK : 
58 DD 907 PUSHL : 
000000006 EF 05 FB 0 CALLS #5, XPOSPARSE SPEC : 
06 28 AE 8 008 CMP SPEC _BLK#52, ¥6 ; 1555 
F 00088 BLSSU -3$ ; 
56 6 i 8 MOVE #6, NAME_LEN : 
56 28 A C 92 33: MOVZWL SPEC_BLK+32, NAME _LEN $ 
<4 06 4$: INCL FILERO : 1556 
OOF4 BF 00 6E 00 2c 0099 MOVCS #0, (SP), #0, #244, 10BS ; 1560 
67 0301003D +t DO 000A1 MOV.  #50397245, 10B$ : 
} 


15 

FORMAT FORMAT = generate formatted output Lin 1e-Se -1984 00:34: AX-11 Bliss-32 V4.0-74 P 5 
v0e000 SPLIT = start new output H18 io tms +f necess 12-80-1382 99:56:59 ERUNOFF SRE FORMAT.BLI; “ (33 

1€ A? 020€ BF BO 000A8 MOVW #526, IOBSRESULTANT+2 : 
; DD A PUSHL & ; 1565 

7 060 BF Se 0008 ROVIUL A Sse , 

000000006 EF 03 F B CALLS #3, XSTSASCII ; 

E é 2 BF MOVW ELEN SSTRSSTRINGO : 

03 AE OF ce MOVB #14, ~$STRSSTRINGO+ : 

AE i 9 ¢ MOVaB so SSTRSSTRING +3 : 

04 AE 2c Ar DO OO0CA MOVL  SPEC_BLK+36, SSTRSSTRINGO+4 : 

50 DD OO0CF PUSHL R : 

04 AE 9F 00001 PUSHAB $STRSSTRINGO : 

000000006 EF 2 FB 9004 CALLS #2, XSTSJOIN : 

4 A? D DB MOVL RO, I0B$+4 : 

8 A? 68 9 ODF MOVAB S1OBSDEFAULT, 10B$+8 : 

— A? 02 : 090E3 BISB2 #2, I0B$+46 ; 

€ A? 01 OO0E7 V #1, 10B$+44 : 

000000006 cr 9F COCEB PUSHAB OPEN ERROR : 

5 D4 OO0F CLRL <-(SPY : 

5? DD O00F PUSHL R : 

000000006 EF 03 FB 000F CALLS #3, XPOSOPEN ; 
6B 04 O00FC CLAL st > 1566 
1¢ A? OF OOOFE PUSHAB TOCO0B+28 : 1573 

01 DD 00101 PUSHL : 

000000006 8F DD 00103 PUSHL #DSRTOCS T™S11 : 

000000006 00 03 FB 00109 CALLS #3, LIBSSIGNAL : 
000000006 EF 9F 00110 PUSHAB STRSFAILURE : 1583 

7E D4 00116 CLRL = SP) : 

59 DD 00118 PUSHL R9 : 

24 AB 9F OOTIA PUSHAB S$STRSSTRING 3 

43 D4 99110 CLRL so : 

000000006 EF 05 FB OO11F CALLS #5, XSTSCOPY ; 

0 69 3¢ 00126 MOVZWL TMPSTR, RO ; 

ADDL HROU 3 

6B 50 (CO 00129 2 RO, CHROUT 

44 AZ 69 3 001¢¢ MOVAB $10BSOUTPUT. 10B$+68 : 

2c «A? 07 90 001 MOVB #7, I0BS+44 : 

5A DD 00134 PUSHL R16 : 

43 D4 001 CLRL -(SP) 3 

57 DD 001 PUSHL R7 : 

000000006 EF 03 FB 0013A CALLS #3, XPOSPUT : 

05 000000006 EF 01 €1 00141 BBC #1. CMDBLK, 5$ : 

FEB2 CF 00 FB 00149 CALLS : 
000000006 EF OF OO14E 5$: PUSHAB STRSFAILURE : 1584 

E D4 00154 CLRL © =( SP) : 

59 DD 0136 PUSHL R9 ; 

2c «AB «OOF «(001 PUSHAB $STRSSTRING : 

ze D4 00158 CLRL = : 

000000006 EF 05 FB 91D CALLS #5, XSTSCOPY : 

0 69 3 164 MOVZWL TMPST : 

50 g 167 ADDL2 RO, CHROUT ; 

4a OA 69 16A MOVAB $10BS0UTPUT. 10B$+68 : 

2c OA? 7 9 166 MOVB #7, :~:10B$+44 : 

5A DD 001 PUSHL R10 ; 

ze D4 00174 CLRL. = = (SP) : 

57 DD 126 PUSHL ; 

900000006 EF 3 FB 17 CALLS #3, XPOSPUT : 

05 00000 906 EF 1 €1 0017F BBC #1. CMDBLK, 6$ : 

FE74 OCF 0 FB 00187 CALLS #0. SPLIT : 


FORMAT FORMAT = generate formatted output Lines 66-Sep-1984 4: AX-11 Bliss-32 V4.0-742 Pa 6 

VO4~000 SPLIT = start new output file for tms if necess 1§-$ep-1984 9: 34 +38 RUNOFF .SRCJFORMAT.BLI;1 - (3 
04 0018C 6$: RET 3; 1587 

; Routine Size: 397 bytes, Routine Base: S$CODES + 0985 

ett 1389 1 END ! End of modul 

3 ! End of module 

: 4119 1590 0 ELUDOM - 


Sete Se Se Se tee 


~-EXTRN LIBSSIGNAL 


PSECT SUMMARY 

Name Bytes Attributes 
SOWNS 56 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 2834 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 177. NOVEC.NOWRT, RD .NOEXE. NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

Library Statistics 
coeeccce Symbols -------- Pages Processing 

File Total Loaded Percent Mapped Time 

_$255$DUA28: CSYSLIBIXPORT.L32;1 590 202 34 252 00:00.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:FORMAT/OBJ=OBJ$:FORMAT MSRC$:FORMAT/UPDATE=(ENHS: FORMAT) 


Size: 2834 code + 233 data bytes 
Run Time: : ¢ 9 
Elapsed Time: @: 1.0 


1404 

Lexenes/CPU-Rin: 61791 
oy Ue pages 
Compi anton Complete 


<o 
ro 
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